home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue63 / Construc / cdsxmlc.DPR < prev    next >
Encoding:
Text File  |  2000-10-02  |  941 b   |  43 lines
  1. program CDSxmlC;
  2. {$APPTYPE CONSOLE}
  3. uses
  4.   DBClient;
  5. var
  6.   i: Integer;
  7. begin
  8.   writeln('content-type: text/html');
  9.   writeln;
  10.   writeln('<HTML>');
  11.   writeln('<BODY BGCOLOR=FFFFCC>');
  12.   with TClientDataSet.Create(nil) do
  13.   try
  14.     LoadFromFile('table.xml');
  15.     Filter := 'Length_In > 42';
  16.     Filtered := True;
  17.     Open;
  18.     First;
  19.     writeln('<TABLE BORDER=1>');
  20.     writeln('<TR>');
  21.     for i:=0 to Pred(FieldCount) do
  22.       writeln('<TD BGCOLOR=FFFFFF><B>',Fields[i].FieldName,'</B></TD>');
  23.     writeln('</TR>');
  24.     while not Eof do
  25.     begin
  26. //    if FieldByName('Length_In').AsInteger > 42 then
  27.       begin
  28.         writeln('<TR>');
  29.         for i:=0 to Pred(FieldCount) do
  30.           writeln('<TD VALIGN=TOP>',Fields[i].AsString,'</TD>');
  31.         writeln('</TR>')
  32.       end;
  33.       Next
  34.     end;
  35.     writeln('</TABLE>')
  36.   finally
  37.     Free
  38.   end;
  39.   writeln('</BODY>');
  40.   writeln('</HTML>')
  41. end.
  42.  
  43.